PC WORLD Online - Word ▌τin Faydal² Makrolar

Word Belgesi kaτ kere yazd²r²ld²?

A■a≡²daki Word for Windows makrosu WordÆⁿn hem 2.0 hem de 6.0 sⁿrⁿmlerinde kullan²labiliyor. Bu makronun yapt²≡² i■e gelince. S²k s²k ka≡²da d÷ktⁿ≡ⁿnⁿz belgelerin oldu≡unu varsayal²m. ▌■te bu makroyu NORMAL.DOT ■ablonuna ekledi≡inizde, makro size ilgili belgenin ■u ana kadar kaτ defa ka≡²da d÷kⁿldⁿ≡ⁿnⁿ g÷steriyor. Ayn² zamanda, belgeyi istedi≡iniz say²da ka≡²da d÷kmenize imkan da veriyor. Makroyu τal²■t²rd²≡²n²zda ekrana basit bir diyalog kutusu geliyor ve belgenin ■imdiye kadar kaτ defa ka≡²da d÷kⁿldⁿ≡ⁿ ve en son olarak hangi kullan²c² taraf²ndan bas²ld²≡² diyalog kutusunda g÷rⁿntⁿleniyor. Diyalog kutusu ayn² zamanda bu belgeden kaτ kopya yazd²raca≡²n²z² soruyor size. Burada istedi≡iniz say²y² girip Tamam dⁿ≡mesine bast²≡²n²zda, belgeniz ayarlad²≡²n²z say²da yazd²r²l²yor. 
 
Sub MAIN
	Dim dlg1 As FileSummaryInfo
	GetCurValues dlg1
	PrintedCopies = Val(dlg1.Keywords)
	CopiesToDate$ = dlg1.Keywords
	DateLastCopy$ = dlg1.Comments
	If PrintedCopies = 0 Then
		CopiesToDate$ = "Daha ÷nce hiτ yazd²r²lmad²."
		DateLastCopy$ = ""
	EndIf
	Begin Dialog UserDialog 300, 100, "Ak²ll² Yazd²r"
		Text 15, 5, 270, 18, CopiesToDate$, .Text1
		Text 15, 20, 270, 36, DateLastCopy$, .Text2
		Text 15, 50, 180, 18, "Kaτ kopya yazd²racaks²n²z?"
		TextBox 215, 50, 40, 18, .NumberCopiesNow$
		OKButton 15, 75, 88, 21
		CancelButton 170, 75, 88, 21
	End Dialog
	Dim Copies As UserDialog
	Copies.NumberCopiesNow$ = "1"
	choice = Dialog(Copies)
	If choice = 0 Then Goto Bye
	NewCopies = Val(Copies.NumberCopiesNow$)
	TotalCopies = NewCopies + PrintedCopies
	While PrintedCopies <> TotalCopies
		PrintedCopies = PrintedCopies + 1
		FileSummaryInfo .Keywords = Str$(PrintedCopies)
		EditSelectAll
		UpdateFields
		FilePrintDefault
	Wend
	FileSummaryInfo .Keywords = Str$(PrintedCopies) + \
		" kopya yaz²ld²."
	If PrintedCopies = 1 Then
		FileSummaryInfo .Keywords = Str$(PrintedCopies) + \
			" kopya yaz²ld²."
	EndIf
	Dim dlg2 As ToolsOptionsUserInfo
	GetCurValues dlg2
	LastPrintedBy$ = dlg2.Name
	FileSummaryInfo .Comments = "Son yazd²r²lma: " + Date$() + \
		Chr$(13) + "yazd²ran: " + LastPrintedBy$ + "."

Bye:
End Sub